; Install-Script fr RCON demo
;
;  1993 Gerhard Radatz
;
; $VER:RCONInstall 1.1 (26-Sep-93)

(set @app-name "RCON Console Handler 1.1 Demo")

(set @language "english")

(complete 0)

(set vernum (getversion))
(if (< (/ vernum 65536) 37)
    (abort "*** Installation aborted! ***\n You need at least version 2.04 of the OS to run RCON"))

(set @default-dest "l:")

(set sourcedir (pathonly @icon))

(copyfiles (prompt "copying RCON-Handler and RCON-Server...")
	   (source (tackon sourcedir "l/"))
	   (dest    @default-dest)
	   (choices "RCON-Handler" "RCON-Server"))

(copyfiles (prompt "copying RCON-mountlist...")
	   (source (tackon sourcedir "devs/"))
	   (dest   "devs:")
	   (choices "RCON-mountlist"))

(complete 40)

(copyfiles (prompt "copying Setkey...")
	   (source (tackon sourcedir "c/"))
	   (dest   "c:")
	   (choices "setkey"))

(complete 50)

(copyfiles (prompt "copying RCON-Prefs...")
	   (source (tackon sourcedir "prefs/"))
	   (dest   "sys:Prefs")
	   (choices "RCON-Prefs")
	   (infos))

(makedir   "ENVARC:rcon" (prompt "Creating preferences directories for RCON..."))
(copyfiles (prompt "copying Iconify Icon...")
	   (source (tackon sourcedir "env/"))
	   (all)
	   (dest   "ENVARC:")
	   (infos))

(complete 70)

(if (askbool ((prompt "Do you want to install RCON as the default console handler ?")
	      (help   (cat "Installing RCON as the default handler means that it will replace \
the built-in CON-Handler. If you select NO here, RCON will be mounted as RCON:, which means that \
you have to type 'newshell RCON:' if you want to get an RCON shell window"))))

    (copyfiles (source (tackon sourcedir "s/InstallCON/RCONinstall"))
	       (dest   "s:"))
    (copyfiles (source (tackon sourcedir "s/InstallRCON/RCONinstall"))
	       (dest   "s:"))
)

(complete 80)

(startup "RCON"
    (command "execute s:RCONinstall")
    (prompt  "Shall the RCON-Handler be mounted during booting ?")
    (help    (cat "If you click PROCEED here, your s:user-startup file will be modified to \
mount the RCON Handler during startup.\n If you click SKIP THIS PART, you will have to execute the \
S:RCONinstall script manually later on."))
)

(complete 90)

(copyfiles (source (tackon sourcedir "Documentation/"))
	   (dest (askdir (prompt "Where do you want to install the documentation of RCON ?")
			 (help   "Please indicate the directory where the amigaguide documentation of RCON shall be copied")
			 (default "sys_help:")
			 (newpath)
			 (disk)
		 ))
	   (infos)
	   (pattern "#?.guide"))

(complete 100)

(exit "Please reboot your computer to get the installation work or "
      "type in the command 'execute s:RCONinstall' manually")

